18 IF W>9 THEN PSET(48,19),3:DRAW "U1 D2 U1 L1 R2 L1"
22 W1=W1+1:IF W1=1 THEN PSET(106,2),1:PSET(106,1),1:PSET(164,1),1:PSET(164,2),1:PSET(174,10),1:PSET(174,11),1
23 IF W1=7 THEN PRESET(106,2):PRESET(106,1):PRESET(164,1):PRESET(164,2):PRESET(174,10):PRESET(174,11)
24 IF W1=15 THEN W1=0
25 IF W1=2 THEN LOCATE 6,26:PRINT "T":PSET(153,171),0:DRAW "D3 R2"
26 IF W1=4 THEN LOCATE 6,27:PRINT "o"
27 IF W1=6 THEN LOCATE 6,28:PRINT "w"
28 IF W1=8 THEN LOCATE 6,29:PRINT "e"
29 IF W1=10 THEN LOCATE 6,30:PRINT "r"
30 IF A>255 THEN PSET(153,171),1:DRAW "D3 R2":GOTO 400
35 ON A GOTO 40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114
36 ON A - 75 GOTO 115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173
37 ON A - 134 GOTO 174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231
38 ON A-191 GOTO 232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255,256,257,258,259,260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,275,276,277,278,279,280,281,282,283,284,285,286,287,288,289,290
39 ON A-250 GOTO 291,292,293,294,295
40 IF POINT(12,90)=0 THEN PAINT(12,90),3,2:GOTO 400:ELSE PAINT(12,90),0,2:GOTO 400
41 IF POINT(275,94)=0 THEN PAINT(275,94),3,2:GOTO 400:ELSE PAINT(275,94),0,2:GOTO 400
42 IF POINT(151,114)=0 THEN PAINT(151,114),3,2:GOTO 400:ELSE PAINT(151,114),0,2:GOTO 400
43 IF POINT(195,78)=0 THEN PAINT(195,78),3,2:GOTO 400:ELSE PAINT(195,78),0,2:GOTO 400
44 IF POINT(70,111)=0 THEN PAINT(70,111),3,2:GOTO 400:ELSE PAINT(70,111),0,2:GOTO 400
45 IF POINT(85,180)=0 THEN PAINT(85,180),3,2:PAINT(85,185),3,2:GOTO 400:ELSE PAINT(85,180),0,2:PAINT(85,185),0,2:GOTO 400
46 IF POINT(275,104)=0 THEN PAINT(275,104),3,2:GOTO 400:ELSE PAINT(275,104),0,2:GOTO 400
47 IF POINT(275,114)=0 THEN PAINT(275,114),3,2:GOTO 400:ELSE PAINT(275,114),0,2:GOTO 400
48 IF POINT(275,124)=0 THEN PAINT(275,124),3,2:GOTO 400:ELSE PAINT(275,124),0,2:GOTO 400
49 IF POINT(275,134)=0 THEN PAINT(275,134),3,2:GOTO 400:ELSE PAINT(275,134),0,2:GOTO 400
50 IF POINT(251,94)=0 THEN PAINT(251,94),3,2:GOTO 400:ELSE PAINT(251,94),0,2:GOTO 400
51 IF POINT(251,104)=0 THEN PAINT(251,104),3,2:GOTO 400:ELSE PAINT(251,104),0,2:GOTO 400
52 IF POINT(251,114)=0 THEN PAINT(251,114),3,2:GOTO 400:ELSE PAINT(251,114),0,2:GOTO 400
53 IF POINT(251,124)=0 THEN PAINT(251,124),3,2:GOTO 400:ELSE PAINT(251,124),0,2:GOTO 400
54 IF POINT(251,134)=0 THEN PAINT(251,134),3,2:GOTO 400:ELSE PAINT(251,134),0,2:GOTO 400
55 IF POINT(259,94)=0 THEN PAINT(259,94),3,2:GOTO 400:ELSE PAINT(259,94),0,2:GOTO 400
56 IF POINT(259,104)=0 THEN PAINT(259,104),3,2:GOTO 400:ELSE PAINT(259,104),0,2:GOTO 400
57 IF POINT(259,114)=0 THEN PAINT(259,114),3,2:GOTO 400:ELSE PAINT(259,114),0,2:GOTO 400
58 IF POINT(259,124)=0 THEN PAINT(259,124),3,2:GOTO 400:ELSE PAINT(259,124),0,2:GOTO 400
59 IF POINT(259,134)=0 THEN PAINT(259,134),3,2:GOTO 400:ELSE PAINT(259,134),0,2:GOTO 400
60 IF POINT(267,94)=0 THEN PAINT(267,94),3,2:GOTO 400:ELSE PAINT(267,94),0,2:GOTO 400
61 IF POINT(267,104)=0 THEN PAINT(267,104),3,2:GOTO 400:ELSE PAINT(267,104),0,2:GOTO 400
62 IF POINT(267,114)=0 THEN PAINT(267,114),3,2:GOTO 400:ELSE PAINT(267,114),0,2:GOTO 400
63 IF POINT(267,124)=0 THEN PAINT(267,124),3,2:GOTO 400:ELSE PAINT(267,124),0,2:GOTO 400
64 IF POINT(267,134)=0 THEN PAINT(267,134),3,2:GOTO 400:ELSE PAINT(267,134),0,2:GOTO 400
65 IF POINT(283,94)=0 THEN PAINT(283,94),3,2:GOTO 400:ELSE PAINT(283,94),0,2:GOTO 400
66 IF POINT(283,104)=0 THEN PAINT(283,104),3,2:GOTO 400:ELSE PAINT(283,104),0,2:GOTO 400
67 IF POINT(283,114)=0 THEN PAINT(283,114),3,2:GOTO 400:ELSE PAINT(283,114),0,2:GOTO 400
68 IF POINT(283,124)=0 THEN PAINT(283,124),3,2:GOTO 400:ELSE PAINT(283,124),0,2:GOTO 400
69 IF POINT(283,134)=0 THEN PAINT(283,134),3,2:GOTO 400:ELSE PAINT(283,134),0,2:GOTO 400
70 IF POINT(291,94)=0 THEN PAINT(291,94),3,2:GOTO 400:ELSE PAINT(291,94),0,2:GOTO 400
71 IF POINT(291,104)=0 THEN PAINT(291,104),3,2:GOTO 400:ELSE PAINT(291,104),0,2:GOTO 400
72 IF POINT(291,114)=0 THEN PAINT(291,114),3,2:GOTO 400:ELSE PAINT(291,114),0,2:GOTO 400
73 IF POINT(291,124)=0 THEN PAINT(291,124),3,2:GOTO 400:ELSE PAINT(291,124),0,2:GOTO 400
74 IF POINT(291,134)=0 THEN PAINT(291,134),3,2:GOTO 400:ELSE PAINT(291,134),0,2:GOTO 400
75 IF POINT(12,90)=0 THEN PAINT(12,90),3,2:GOTO 400:ELSE PAINT(12,90),0,2:GOTO 400
76 IF POINT(12,100)=0 THEN PAINT(12,100),3,2:GOTO 400:ELSE PAINT(12,100),0,2:GOTO 400
77 IF POINT(12,110)=0 THEN PAINT(12,110),3,2:GOTO 400:ELSE PAINT(12,110),0,2:GOTO 400
78 IF POINT(12,120)=0 THEN PAINT(12,120),3,2:GOTO 400:ELSE PAINT(12,120),0,2:GOTO 400
79 IF POINT(20,90)=0 THEN PAINT(20,90),3,2:GOTO 400:ELSE PAINT(20,90),0,2:GOTO 400
80 IF POINT(20,100)=0 THEN PAINT(20,100),3,2:GOTO 400:ELSE PAINT(20,100),0,2:GOTO 400
81 IF POINT(20,110)=0 THEN PAINT(20,110),3,2:GOTO 400:ELSE PAINT(20,110),0,2:GOTO 400
82 IF POINT(20,120)=0 THEN PAINT(20,120),3,2:GOTO 400:ELSE PAINT(20,120),0,2:GOTO 400
83 IF POINT(28,90)=0 THEN PAINT(28,90),3,2:GOTO 400:ELSE PAINT(28,90),0,2:GOTO 400
84 IF POINT(28,100)=0 THEN PAINT(28,100),3,2:GOTO 400:ELSE PAINT(28,100),0,2:GOTO 400
85 IF POINT(28,110)=0 THEN PAINT(28,110),3,2:GOTO 400:ELSE PAINT(28,110),0,2:GOTO 400
86 IF POINT(28,120)=0 THEN PAINT(28,120),3,2:GOTO 400:ELSE PAINT(28,120),0,2:GOTO 400
87 IF POINT(37,90)=0 THEN PAINT(37,90),3,2:GOTO 400:ELSE PAINT(37,90),0,2:GOTO 400
88 IF POINT(37,100)=0 THEN PAINT(37,100),3,2:GOTO 400:ELSE PAINT(37,100),0,2:GOTO 400
89 IF POINT(37,110)=0 THEN PAINT(37,110),3,2:GOTO 400:ELSE PAINT(37,110),0,2:GOTO 400
90 IF POINT(37,120)=0 THEN PAINT(37,120),3,2:GOTO 400:ELSE PAINT(37,120),0,2:GOTO 400
91 IF POINT(45,90)=0 THEN PAINT(45,90),3,2:GOTO 400:ELSE PAINT(45,90),0,2:GOTO 400
92 IF POINT(45,100)=0 THEN PAINT(45,100),3,2:GOTO 400:ELSE PAINT(45,100),0,2:GOTO 400
93 IF POINT(45,110)=0 THEN PAINT(45,110),3,2:GOTO 400:ELSE PAINT(45,110),0,2:GOTO 400
94 IF POINT(45,120)=0 THEN PAINT(45,120),3,2:GOTO 400:ELSE PAINT(45,120),0,2:GOTO 400
95 IF POINT(53,90)=0 THEN PAINT(53,90),3,2:GOTO 400:ELSE PAINT(53,90),0,2:GOTO 400
96 IF POINT(53,100)=0 THEN PAINT(53,100),3,2:GOTO 400:ELSE PAINT(53,100),0,2:GOTO 400
97 IF POINT(53,110)=0 THEN PAINT(53,110),3,2:GOTO 400:ELSE PAINT(53,110),0,2:GOTO 400
98 IF POINT(53,120)=0 THEN PAINT(53,120),3,2:GOTO 400:ELSE PAINT(53,120),0,2:GOTO 400
99 IF POINT(112,24)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,24),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,24),0,2:NEXT:GOTO 400
100 IF POINT(112,30)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,30),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,30),0,2:NEXT:GOTO 400
101 IF POINT(112,36)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,36),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,36),0,2:NEXT:GOTO 400
102 IF POINT(112,42)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,42),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,42),0,2:NEXT:GOTO 400
103 IF POINT(112,48)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,48),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,48),0,2:NEXT:GOTO 400
104 IF POINT(112,54)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,54),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,54),0,2:NEXT:GOTO 400
105 IF POINT(112,60)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,60),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,60),0,2:NEXT:GOTO 400
106 IF POINT(112,66)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,66),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,66),0,2:NEXT:GOTO 400
107 IF POINT(112,72)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,72),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,72),0,2:NEXT:GOTO 400
108 IF POINT(112,78)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,78),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,78),0,2:NEXT:GOTO 400
109 IF POINT(112,84)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,84),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,84),0,2:NEXT:GOTO 400
110 IF POINT(112,90)=0 THEN FOR X=112 TO 127 STEP 5:PAINT(X,90),3,2:NEXT:GOTO 400:ELSE FOR X=112 TO 127 STEP 5:PAINT(X,90),0,2:NEXT:GOTO 400
111 IF POINT(142,24)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,24),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,24),0,2:NEXT:GOTO 400
112 IF POINT(142,30)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,30),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,30),0,2:NEXT:GOTO 400
113 IF POINT(142,36)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,36),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,36),0,2:NEXT:GOTO 400
114 IF POINT(142,42)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,42),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,42),0,2:NEXT:GOTO 400
115 IF POINT(142,48)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,48),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,48),0,2:NEXT:GOTO 400
116 IF POINT(142,54)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,54),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,54),0,2:NEXT:GOTO 400
117 IF POINT(142,60)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,60),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,60),0,2:NEXT:GOTO 400
118 IF POINT(142,66)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,66),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,66),0,2:NEXT:GOTO 400
119 IF POINT(142,72)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,72),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,72),0,2:NEXT:GOTO 400
120 IF POINT(142,78)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,78),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,78),0,2:NEXT:GOTO 400
121 IF POINT(142,84)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,84),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,84),0,2:NEXT:GOTO 400
122 IF POINT(142,90)=0 THEN FOR X=142 TO 157 STEP 5:PAINT(X,90),3,2:NEXT:GOTO 400:ELSE FOR X=142 TO 157 STEP 5:PAINT(X,90),0,2:NEXT:GOTO 400
123 IF POINT(70,81)=0 THEN PAINT(70,81),3,2:GOTO 400:ELSE PAINT(70,81),0,2:GOTO 400
124 IF POINT(70,87)=0 THEN PAINT(70,87),3,2:GOTO 400:ELSE PAINT(70,87),0,2:GOTO 400
125 IF POINT(70,93)=0 THEN PAINT(70,93),3,2:GOTO 400:ELSE PAINT(70,93),0,2:GOTO 400
126 IF POINT(70,99)=0 THEN PAINT(70,99),3,2:GOTO 400:ELSE PAINT(70,99),0,2:GOTO 400
127 IF POINT(70,105)=0 THEN PAINT(70,105),3,2:GOTO 400:ELSE PAINT(70,105),0,2:GOTO 400
128 IF POINT(70,117)=0 THEN PAINT(70,117),3,2:GOTO 400:ELSE PAINT(70,117),0,2:GOTO 400
129 IF POINT(70,123)=0 THEN PAINT(70,123),3,2:GOTO 400:ELSE PAINT(70,123),0,2:GOTO 400
130 IF POINT(70,129)=0 THEN PAINT(70,129),3,2:GOTO 400:ELSE PAINT(70,129),0,2:GOTO 400
131 IF POINT(70,135)=0 THEN PAINT(70,135),3,2:GOTO 400:ELSE PAINT(70,135),0,2:GOTO 400
132 IF POINT(70,141)=0 THEN PAINT(70,141),3,2:GOTO 400:ELSE PAINT(70,141),0,2:GOTO 400
133 IF POINT(70,147)=0 THEN PAINT(70,147),3,2:GOTO 400:ELSE PAINT(70,147),0,2:GOTO 400
134 IF POINT(70,153)=0 THEN PAINT(70,153),3,2:GOTO 400:ELSE PAINT(70,153),0,2:GOTO 400
135 IF POINT(70,159)=0 THEN PAINT(70,159),3,2:GOTO 400:ELSE PAINT(70,159),0,2:GOTO 400
136 IF POINT(70,165)=0 THEN PAINT(70,165),3,2:GOTO 400:ELSE PAINT(70,165),0,2:GOTO 400
137 IF POINT(70,171)=0 THEN PAINT(70,171),3,2:GOTO 400:ELSE PAINT(70,171),0,2:GOTO 400
138 IF POINT(70,177)=0 THEN PAINT(70,177),3,2:GOTO 400:ELSE PAINT(70,177),0,2:GOTO 400
139 IF POINT(70,183)=0 THEN PAINT(70,183),3,2:GOTO 400:ELSE PAINT(70,183),0,2:GOTO 400
140 IF POINT(70,189)=0 THEN PAINT(70,189),3,2:GOTO 400:ELSE PAINT(70,189),0,2:GOTO 400
141 IF POINT(70,195)=0 THEN PAINT(70,195),3,2:GOTO 400:ELSE PAINT(70,195),0,2:GOTO 400
142 IF POINT(74,81)=0 THEN PAINT(74,81),3,2:GOTO 400:ELSE PAINT(74,81),0,2:GOTO 400
143 IF POINT(74,87)=0 THEN PAINT(74,87),3,2:GOTO 400:ELSE PAINT(74,87),0,2:GOTO 400
144 IF POINT(74,93)=0 THEN PAINT(74,93),3,2:GOTO 400:ELSE PAINT(74,93),0,2:GOTO 400
145 IF POINT(74,105)=0 THEN PAINT(74,105),3,2:GOTO 400:ELSE PAINT(74,105),0,2:GOTO 400
146 IF POINT(74,117)=0 THEN PAINT(74,117),3,2:GOTO 400:ELSE PAINT(74,117),0,2:GOTO 400
147 IF POINT(74,123)=0 THEN PAINT(74,123),3,2:GOTO 400:ELSE PAINT(74,123),0,2:GOTO 400
148 IF POINT(74,129)=0 THEN PAINT(74,129),3,2:GOTO 400:ELSE PAINT(74,129),0,2:GOTO 400
149 IF POINT(74,141)=0 THEN PAINT(74,141),3,2:GOTO 400:ELSE PAINT(74,141),0,2:GOTO 400
150 IF POINT(74,147)=0 THEN PAINT(74,147),3,2:GOTO 400:ELSE PAINT(74,147),0,2:GOTO 400
151 IF POINT(74,153)=0 THEN PAINT(74,153),3,2:GOTO 400:ELSE PAINT(74,153),0,2:GOTO 400
152 IF POINT(74,159)=0 THEN PAINT(74,159),3,2:GOTO 400:ELSE PAINT(74,159),0,2:GOTO 400
153 IF POINT(74,165)=0 THEN PAINT(74,165),3,2:GOTO 400:ELSE PAINT(74,165),0,2:GOTO 400
154 IF POINT(74,171)=0 THEN PAINT(74,171),3,2:GOTO 400:ELSE PAINT(74,171),0,2:GOTO 400
155 IF POINT(74,177)=0 THEN PAINT(74,177),3,2:GOTO 400:ELSE PAINT(74,177),0,2:GOTO 400
156 IF POINT(74,183)=0 THEN PAINT(74,183),3,2:GOTO 400:ELSE PAINT(74,183),0,2:GOTO 400
157 IF POINT(74,189)=0 THEN PAINT(74,189),3,2:GOTO 400:ELSE PAINT(74,189),0,2:GOTO 400
158 IF POINT(74,195)=0 THEN PAINT(74,195),3,2:GOTO 400:ELSE PAINT(74,195),0,2:GOTO 400
159 IF POINT(78,81)=0 THEN PAINT(78,81),3,2:GOTO 400:ELSE PAINT(78,81),0,2:GOTO 400
160 IF POINT(78,87)=0 THEN PAINT(78,87),3,2:GOTO 400:ELSE PAINT(78,87),0,2:GOTO 400
161 IF POINT(78,93)=0 THEN PAINT(78,93),3,2:GOTO 400:ELSE PAINT(78,93),0,2:GOTO 400
162 IF POINT(78,99)=0 THEN PAINT(78,99),3,2:GOTO 400:ELSE PAINT(78,99),0,2:GOTO 400
163 IF POINT(78,105)=0 THEN PAINT(78,105),3,2:GOTO 400:ELSE PAINT(78,105),0,2:GOTO 400
164 IF POINT(78,111)=0 THEN PAINT(78,111),3,2:GOTO 400:ELSE PAINT(78,111),0,2:GOTO 400
165 IF POINT(78,117)=0 THEN PAINT(78,117),3,2:GOTO 400:ELSE PAINT(78,117),0,2:GOTO 400
166 IF POINT(78,123)=0 THEN PAINT(78,123),3,2:GOTO 400:ELSE PAINT(78,123),0,2:GOTO 400
167 IF POINT(78,129)=0 THEN PAINT(78,129),3,2:GOTO 400:ELSE PAINT(78,129),0,2:GOTO 400
168 IF POINT(78,135)=0 THEN PAINT(78,135),3,2:GOTO 400:ELSE PAINT(78,135),0,2:GOTO 400
169 IF POINT(82,81)=0 THEN PAINT(82,81),3,2:GOTO 400:ELSE PAINT(82,81),0,2:GOTO 400
170 IF POINT(82,87)=0 THEN PAINT(82,87),3,2:GOTO 400:ELSE PAINT(82,87),0,2:GOTO 400
171 IF POINT(82,93)=0 THEN PAINT(82,93),3,2:GOTO 400:ELSE PAINT(82,93),0,2:GOTO 400
172 IF POINT(82,99)=0 THEN PAINT(82,99),3,2:GOTO 400:ELSE PAINT(82,99),0,2:GOTO 400
173 IF POINT(82,105)=0 THEN PAINT(82,105),3,2:GOTO 400:ELSE PAINT(82,105),0,2:GOTO 400
174 IF POINT(82,111)=0 THEN PAINT(82,111),3,2:GOTO 400:ELSE PAINT(82,111),0,2:GOTO 400
175 IF POINT(82,117)=0 THEN PAINT(82,117),3,2:GOTO 400:ELSE PAINT(82,117),0,2:GOTO 400
176 IF POINT(82,123)=0 THEN PAINT(82,123),3,2:GOTO 400:ELSE PAINT(82,123),0,2:GOTO 400
177 IF POINT(82,129)=0 THEN PAINT(82,129),3,2:GOTO 400:ELSE PAINT(82,129),0,2:GOTO 400
178 IF POINT(82,135)=0 THEN PAINT(82,135),3,2:GOTO 400:ELSE PAINT(82,135),0,2:GOTO 400
179 IF POINT(86,105)=0 THEN PAINT(86,105),3,2:GOTO 400:ELSE PAINT(86,105),0,2:GOTO 400
180 IF POINT(86,111)=0 THEN PAINT(86,111),3,2:GOTO 400:ELSE PAINT(86,111),0,2:GOTO 400
181 IF POINT(86,117)=0 THEN PAINT(86,117),3,2:GOTO 400:ELSE PAINT(86,117),0,2:GOTO 400
182 IF POINT(86,123)=0 THEN PAINT(86,123),3,2:GOTO 400:ELSE PAINT(86,123),0,2:GOTO 400
183 IF POINT(86,129)=0 THEN PAINT(86,129),3,2:GOTO 400:ELSE PAINT(86,129),0,2:GOTO 400
184 IF POINT(86,135)=0 THEN PAINT(86,135),3,2:GOTO 400:ELSE PAINT(86,135),0,2:GOTO 400
185 IF POINT(90,105)=0 THEN PAINT(90,105),3,2:GOTO 400:ELSE PAINT(90,105),0,2:GOTO 400
186 IF POINT(90,111)=0 THEN PAINT(90,111),3,2:GOTO 400:ELSE PAINT(90,111),0,2:GOTO 400
187 IF POINT(90,117)=0 THEN PAINT(90,117),3,2:GOTO 400:ELSE PAINT(90,117),0,2:GOTO 400
188 IF POINT(12,140)=0 THEN PAINT(12,140),3,2:GOTO 400:ELSE PAINT(12,140),0,2:GOTO 400
189 IF POINT(12,150)=0 THEN PAINT(12,150),3,2:GOTO 400:ELSE PAINT(12,150),0,2:GOTO 400
190 IF POINT(20,140)=0 THEN PAINT(20,140),3,2:GOTO 400:ELSE PAINT(20,140),0,2:GOTO 400
191 IF POINT(20,150)=0 THEN PAINT(20,150),3,2:GOTO 400:ELSE PAINT(20,150),0,2:GOTO 400
192 IF POINT(36,140)=0 THEN PAINT(36,140),3,2:GOTO 400:ELSE PAINT(36,140),0,2:GOTO 400
193 IF POINT(28,150)=0 THEN PAINT(28,150),3,2:GOTO 400:ELSE PAINT(28,150),0,2:GOTO 400
194 IF POINT(36,140)=0 THEN PAINT(36,140),3,2:GOTO 400:ELSE PAINT(36,140),0,2:GOTO 400
195 IF POINT(36,150)=0 THEN PAINT(36,150),3,2:GOTO 400:ELSE PAINT(36,150),0,2:GOTO 400
196 IF POINT(44,140)=0 THEN PAINT(44,140),3,2:GOTO 400:ELSE PAINT(44,140),0,2:GOTO 400
197 IF POINT(44,150)=0 THEN PAINT(44,150),3,2:GOTO 400:ELSE PAINT(44,150),0,2:GOTO 400
198 IF POINT(44,160)=0 THEN PAINT(44,160),3,2:GOTO 400:ELSE PAINT(44,160),0,2:GOTO 400
199 IF POINT(44,170)=0 THEN PAINT(44,170),3,2:GOTO 400:ELSE PAINT(44,170),0,2:GOTO 400
200 IF POINT(44,180)=0 THEN PAINT(44,180),3,2:GOTO 400:ELSE PAINT(44,180),0,2:GOTO 400
201 IF POINT(44,190)=0 THEN PAINT(44,190),3,2:GOTO 400:ELSE PAINT(44,190),0,2:GOTO 400
202 IF POINT(52,140)=0 THEN PAINT(52,140),3,2:GOTO 400:ELSE PAINT(52,140),0,2:GOTO 400
203 IF POINT(52,150)=0 THEN PAINT(52,150),3,2:GOTO 400:ELSE PAINT(52,150),0,2:GOTO 400
204 IF POINT(52,160)=0 THEN PAINT(52,160),3,2:GOTO 400:ELSE PAINT(52,160),0,2:GOTO 400
205 IF POINT(52,170)=0 THEN PAINT(52,170),3,2:GOTO 400:ELSE PAINT(52,170),0,2:GOTO 400
206 IF POINT(52,180)=0 THEN PAINT(52,180),3,2:GOTO 400:ELSE PAINT(52,180),0,2:GOTO 400
207 IF POINT(52,190)=0 THEN PAINT(52,190),3,2:GOTO 400:ELSE PAINT(52,190),0,2:GOTO 400
208 IF POINT(85,170)=0 THEN PAINT(85,170),3,2:PAINT(85,165),3,2:GOTO 400:ELSE PAINT(85,170),0,2:PAINT(85,165),0,2:GOTO 400
209 IF POINT(85,155)=0 THEN PAINT(85,155),3,2:PAINT(85,150),3,2:GOTO 400:ELSE PAINT(85,155),0,2:PAINT(85,150),0,2:GOTO 400
210 IF POINT(95,155)=0 THEN PAINT(95,155),3,2:PAINT(95,150),3,2:GOTO 400:ELSE PAINT(95,155),0,2:PAINT(95,150),0,2:GOTO 400
211 IF POINT(95,170)=0 THEN PAINT(95,170),3,2:PAINT(95,165),3,2:GOTO 400:ELSE PAINT(95,170),0,2:PAINT(95,165),0,2:GOTO 400
212 IF POINT(95,180)=0 THEN PAINT(95,180),3,2:PAINT(95,185),3,2:GOTO 400:ELSE PAINT(95,180),0,2:PAINT(95,185),0,2:GOTO 400
213 IF POINT(105,155)=0 THEN PAINT(105,155),3,2:PAINT(105,150),3,2:GOTO 400:ELSE PAINT(105,155),0,2:PAINT(105,150),0,2:GOTO 400
214 IF POINT(105,170)=0 THEN PAINT(105,170),3,2:PAINT(105,165),3,2:GOTO 400:ELSE PAINT(105,170),0,2:PAINT(105,165),0,2:GOTO 400
215 IF POINT(105,180)=0 THEN PAINT(105,180),3,2:PAINT(105,185),3,2:GOTO 400:ELSE PAINT(105,180),0,2:PAINT(105,185),0,2:GOTO 400
216 IF POINT(115,155)=0 THEN PAINT(115,155),3,2:PAINT(115,150),3,2:GOTO 400:ELSE PAINT(115,155),0,2:PAINT(115,150),0,2:GOTO 400
217 IF POINT(115,170)=0 THEN PAINT(115,170),3,2:PAINT(115,165),3,2:GOTO 400:ELSE PAINT(115,170),0,2:PAINT(115,165),0,2:GOTO 400
218 IF POINT(125,155)=0 THEN PAINT(125,155),3,2:PAINT(125,150),3,2:GOTO 400:ELSE PAINT(125,155),0,2:PAINT(125,150),0,2:GOTO 400
219 IF POINT(125,170)=0 THEN PAINT(125,170),3,2:PAINT(125,165),3,2:GOTO 400:ELSE PAINT(125,170),0,2:PAINT(125,165),0,2:GOTO 400
220 IF POINT(135,155)=0 THEN PAINT(135,155),3,2:PAINT(135,150),3,2:GOTO 400:ELSE PAINT(135,155),0,2:PAINT(135,150),0,2:GOTO 400
221 IF POINT(135,170)=0 THEN PAINT(135,170),3,2:PAINT(135,165),3,2:GOTO 400:ELSE PAINT(135,170),0,2:PAINT(135,165),0,2:GOTO 400
222 IF POINT(141,114)=0 THEN PAINT(141,114),3,2:GOTO 400:ELSE PAINT(141,114),0,2:GOTO 400
223 IF POINT(131,114)=0 THEN PAINT(131,114),3,2:GOTO 400:ELSE PAINT(131,114),0,2:GOTO 400
224 IF POINT(121,114)=0 THEN PAINT(121,114),3,2:GOTO 400:ELSE PAINT(121,114),0,2:GOTO 400
225 IF POINT(161,114)=0 THEN PAINT(161,114),3,2:GOTO 400:ELSE PAINT(161,114),0,2:GOTO 400
226 IF POINT(171,114)=0 THEN PAINT(171,114),3,2:GOTO 400:ELSE PAINT(171,114),0,2:GOTO 400
227 IF POINT(181,114)=0 THEN PAINT(181,114),3,2:GOTO 400:ELSE PAINT(181,114),0,2:GOTO 400
228 IF POINT(191,114)=0 THEN PAINT(191,114),3,2:GOTO 400:ELSE PAINT(191,114),0,2:GOTO 400
229 IF POINT(201,114)=0 THEN PAINT(201,114),3,2:GOTO 400:ELSE PAINT(201,114),0,2:GOTO 400
230 IF POINT(211,114)=0 THEN PAINT(211,114),3,2:GOTO 400:ELSE PAINT(211,114),0,2:GOTO 400
231 IF POINT(193,124)=0 THEN PAINT(193,124),3,2:GOTO 400:ELSE PAINT(193,124),0,2:GOTO 400
232 IF POINT(203,124)=0 THEN PAINT(203,124),3,2:GOTO 400:ELSE PAINT(203,124),0,2:GOTO 400
233 IF POINT(213,124)=0 THEN PAINT(213,124),3,2:GOTO 400:ELSE PAINT(213,124),0,2:GOTO 400
234 IF POINT(193,136)=0 THEN PAINT(193,136),3,2:GOTO 400:ELSE PAINT(193,136),0,2:GOTO 400
235 IF POINT(203,136)=0 THEN PAINT(203,136),3,2:GOTO 400:ELSE PAINT(203,136),0,2:GOTO 400
236 IF POINT(213,136)=0 THEN PAINT(213,136),3,2:GOTO 400:ELSE PAINT(213,136),0,2:GOTO 400
237 IF POINT(193,148)=0 THEN PAINT(193,148),3,2:GOTO 400:ELSE PAINT(193,148),0,2:GOTO 400
238 IF POINT(203,148)=0 THEN PAINT(203,148),3,2:GOTO 400:ELSE PAINT(203,148),0,2:GOTO 400
239 IF POINT(213,148)=0 THEN PAINT(213,148),3,2:GOTO 400:ELSE PAINT(213,148),0,2:GOTO 400
240 IF POINT(195,68)=0 THEN PAINT(195,68),3,2:GOTO 400:ELSE PAINT(195,68),0,2:GOTO 400
241 IF POINT(195,73)=0 THEN PAINT(195,73),3,2:GOTO 400:ELSE PAINT(195,73),0,2:GOTO 400
242 IF POINT(195,83)=0 THEN PAINT(195,83),3,2:GOTO 400:ELSE PAINT(195,83),0,2:GOTO 400
243 IF POINT(195,88)=0 THEN PAINT(195,88),3,2:GOTO 400:ELSE PAINT(195,88),0,2:GOTO 400
244 IF POINT(205,68)=0 THEN PAINT(205,68),3,2:GOTO 400:ELSE PAINT(205,68),0,2:GOTO 400
245 IF POINT(205,73)=0 THEN PAINT(205,73),3,2:GOTO 400:ELSE PAINT(205,73),0,2:GOTO 400
246 IF POINT(205,78)=0 THEN PAINT(205,78),3,2:GOTO 400:ELSE PAINT(205,78),0,2:GOTO 400
247 IF POINT(205,83)=0 THEN PAINT(205,83),3,2:GOTO 400:ELSE PAINT(205,83),0,2:GOTO 400
248 IF POINT(205,88)=0 THEN PAINT(205,88),3,2:GOTO 400:ELSE PAINT(205,88),0,2:GOTO 400
249 IF POINT(205,92)=0 THEN PAINT(205,92),3,2:GOTO 400:ELSE PAINT(205,92),0,2:GOTO 400
250 IF POINT(212,68)=0 THEN PAINT(212,68),3,2:GOTO 400:ELSE PAINT(212,68),0,2:GOTO 400
251 IF POINT(212,73)=0 THEN PAINT(212,73),3,2:GOTO 400:ELSE PAINT(212,73),0,2:GOTO 400
252 IF POINT(212,78)=0 THEN PAINT(212,78),3,2:GOTO 400:ELSE PAINT(212,78),0,2:GOTO 400
253 IF POINT(212,83)=0 THEN PAINT(212,83),3,2:GOTO 400:ELSE PAINT(212,83),0,2:GOTO 400
254 IF POINT(212,88)=0 THEN PAINT(212,88),3,2:GOTO 400:ELSE PAINT(212,88),0,2:GOTO 400
255 IF POINT(212,92)=0 THEN PAINT(212,92),3,2:GOTO 400:ELSE PAINT(212,92),0,2:GOTO 400
256 IF POINT(220,68)=0 THEN PAINT(220,68),3,2:GOTO 400:ELSE PAINT(220,68),0,2:GOTO 400
257 IF POINT(220,73)=0 THEN PAINT(220,73),3,2:GOTO 400:ELSE PAINT(220,73),0,2:GOTO 400
258 IF POINT(220,78)=0 THEN PAINT(220,78),3,2:GOTO 400:ELSE PAINT(220,78),0,2:GOTO 400
259 IF POINT(220,83)=0 THEN PAINT(220,83),3,2:GOTO 400:ELSE PAINT(220,83),0,2:GOTO 400
260 IF POINT(220,88)=0 THEN PAINT(220,88),3,2:GOTO 400:ELSE PAINT(220,88),0,2:GOTO 400
261 IF POINT(220,92)=0 THEN PAINT(220,92),3,2:GOTO 400:ELSE PAINT(220,92),0,2:GOTO 400
262 IF POINT(50,3)=1 THEN GOTO 400 ELSE COLOR 0,1:PAINT(50,3),1,2:LOCATE 13,15:PRINT " One moment ":GOTO 1360
263 IF POINT(50,3)=0 THEN GOTO 400 ELSE COLOR 0,1:PAINT(50,3),0,2:LOCATE 13,15:PRINT " One moment ":GOTO 1030
264 IF POINT(230,68)=0 THEN PAINT(230,68),3,2:GOTO 400:ELSE PAINT(230,68),0,2:GOTO 400
265 IF POINT(230,73)=0 THEN PAINT(230,73),3,2:GOTO 400:ELSE PAINT(230,73),0,2:GOTO 400
266 IF POINT(230,78)=0 THEN PAINT(230,78),3,2:GOTO 400:ELSE PAINT(230,78),0,2:GOTO 400
267 IF POINT(230,83)=0 THEN PAINT(230,83),3,2:GOTO 400:ELSE PAINT(230,83),0,2:GOTO 400
268 IF POINT(230,88)=0 THEN PAINT(230,88),3,2:GOTO 400:ELSE PAINT(230,88),0,2:GOTO 400
269 IF POINT(235,93)=0 THEN PAINT(235,92),3,2:GOTO 400:ELSE PAINT(235,92),0,2:GOTO 400
270 IF POINT(235,98)=0 THEN PAINT(235,98),3,2:GOTO 400:ELSE PAINT(235,98),0,2:GOTO 400
271 IF POINT(235,103)=0 THEN PAINT(235,103),3,2:GOTO 400:ELSE PAINT(235,103),0,2:GOTO 400
272 IF POINT(235,108)=0 THEN PAINT(235,108),3,2:GOTO 400:ELSE PAINT(235,108),0,2:GOTO 400
273 IF POINT(235,113)=0 THEN PAINT(235,113),3,2:GOTO 400:ELSE PAINT(235,113),0,2:GOTO 400
274 IF POINT(235,118)=0 THEN PAINT(235,118),3,2:GOTO 400:ELSE PAINT(235,118),0,2:GOTO 400
275 IF POINT(235,123)=0 THEN PAINT(235,123),3,2:GOTO 400:ELSE PAINT(235,123),0,2:GOTO 400
276 IF POINT(235,128)=0 THEN PAINT(235,128),3,2:GOTO 400:ELSE PAINT(235,128),0,2:GOTO 400
277 IF POINT(235,133)=0 THEN PAINT(235,133),3,2:GOTO 400:ELSE PAINT(235,133),0,2:GOTO 400
278 IF POINT(235,138)=0 THEN PAINT(235,138),3,2:GOTO 400:ELSE PAINT(235,138),0,2:GOTO 400
279 IF POINT(235,143)=0 THEN PAINT(235,143),3,2:GOTO 400:ELSE PAINT(235,143),0,2:GOTO 400
280 IF POINT(235,148)=0 THEN PAINT(235,148),3,2:GOTO 400:ELSE PAINT(235,148),0,2:GOTO 400
281 IF POINT(235,151)=0 THEN PAINT(235,151),3,2:GOTO 400:ELSE PAINT(235,151),0,2:GOTO 400
282 IF POINT(239,68)=0 THEN PAINT(239,68),3,2:GOTO 400:ELSE PAINT(239,68),0,2:GOTO 400
283 IF POINT(239,73)=0 THEN PAINT(239,73),3,2:GOTO 400:ELSE PAINT(239,73),0,2:GOTO 400
284 IF POINT(239,78)=0 THEN PAINT(239,78),3,2:GOTO 400:ELSE PAINT(239,78),0,2:GOTO 400
285 IF POINT(239,83)=0 THEN PAINT(239,83),3,2:GOTO 400:ELSE PAINT(239,83),0,2:GOTO 400
286 IF POINT(239,88)=0 THEN PAINT(239,88),3,2:GOTO 400:ELSE PAINT(239,88),0,2:GOTO 400
287 IF POINT(239,93)=0 THEN PAINT(239,92),3,2:GOTO 400:ELSE PAINT(239,92),0,2:GOTO 400
288 IF POINT(239,98)=0 THEN PAINT(239,98),3,2:GOTO 400:ELSE PAINT(239,98),0,2:GOTO 400
289 IF POINT(239,103)=0 THEN PAINT(239,103),3,2:GOTO 400:ELSE PAINT(239,103),0,2:GOTO 400
290 IF POINT(239,108)=0 THEN PAINT(239,108),3,2:GOTO 400:ELSE PAINT(239,108),0,2:GOTO 400
291 IF POINT(239,113)=0 THEN PAINT(239,113),3,2:GOTO 400:ELSE PAINT(239,113),0,2:GOTO 400
292 IF POINT(239,118)=0 THEN PAINT(239,118),3,2:GOTO 400:ELSE PAINT(239,118),0,2:GOTO 400
293 IF POINT(239,123)=0 THEN PAINT(239,123),3,2:GOTO 400:ELSE PAINT(239,123),0,2:GOTO 400
294 IF POINT(239,128)=0 THEN PAINT(239,128),3,2:GOTO 400:ELSE PAINT(239,128),0,2:GOTO 400
295 IF POINT(239,133)=0 THEN PAINT(239,133),3,2:GOTO 400:ELSE PAINT(239,133),0,2:GOTO 400
296 IF POINT(239,138)=0 THEN PAINT(239,138),3,2:GOTO 400:ELSE PAINT(239,138),0,2:GOTO 400
297 IF POINT(239,143)=0 THEN PAINT(239,143),3,2:GOTO 400:ELSE PAINT(239,143),0,2:GOTO 400
298 IF POINT(239,148)=0 THEN PAINT(239,148),3,2:GOTO 400:ELSE PAINT(239,148),0,2:GOTO 400
299 IF POINT(239,151)=0 THEN PAINT(239,151),3,2:GOTO 400:ELSE PAINT(239,151),0,2:GOTO 400
400 IF W>8 THEN PSET(35,14),0:DRAW "U1 D2 U1 L1 R2 L1"
410 IF W>9 THEN PSET(48,19),0:DRAW "U1 D2 U1 L1 R2 L1":W=0
420 IF C1= 0 THEN ON C2 GOTO 450,470,490,510,530,550,570,590,610,630,650,670,690
430 IF C1=6 THEN T=T:Q7=Q7+1:IF Q7>10 THEN LOCATE 13,15:PRINT L1$:Q7=0:S2=1:IF VAL (MID$ (TIME$,7,2))<58 THEN GOSUB 1680
440 GOTO 700
450 T=T+1:IF T=>70 THEN LOCATE 13,15:PRINT " ":T=1:C1=6:S2=3:GOTO 700
460 GOTO 700
470 IF C1=0 THEN T=T+1:IF T=>80 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
480 GOTO 700
490 IF C1=0 THEN T=T+1:IF T=>72 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
500 GOTO 700
510 IF C1=0 THEN T=T+1:IF T=>78 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
520 GOTO 700
530 IF C1=0 THEN T=T+1:IF T=>73 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
540 GOTO 700
550 IF C1=0 THEN T=T+1:IF T=>115 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
560 GOTO 700
570 IF C1=0 THEN T=T+1:IF T=>102 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
580 GOTO 700
590 IF C1=0 THEN T=T+1:IF T=>84 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
600 GOTO 700
610 IF C1=0 THEN T=T+1:IF T=>144 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
620 GOTO 700
630 IF C1=0 THEN T=T+1:IF T=>98 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
640 GOTO 700
650 IF C1=0 THEN T=T+1:IF T=>144 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
660 GOTO 700
670 IF C1=0 THEN T=T+1:IF T=>160 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3:GOTO 700
680 GOTO 700
690 IF C1=0 THEN T=T+1:IF T=>108 THEN LOCATE 13,15:PRINT L2$:Q7=Q7+1:IF Q7>10 THEN T=1:Q7=0:C1=6:S2=3
700 IF W1=14 THEN LOCATE 6,26:PRINT " "
710 IF S2=3 THEN S2=0:Q7=0:T=1:J$=T6$+MID$ (TIME$,1,5)+" ":GOTO 5
720 IF S2=1 THEN S2=0:C1=0:C2=C2+1:GOTO 880
730 GOTO 5
740 L=13:C2=0:S2=3:T=1:C1=6:Q7=0:S3=0:RANDOMIZE TIMER :L2$=" Time now... ":L1$=" LOOK... "
750 T8$=" FOR FINE DINING... STEP OUT... TO THE GASTIGHT ROOM. LLOYD TOWER HOTEL. "
760 T7$=" TEST DRIVE THE NEW 1984 -REPULSE- AT... MELVIN'S MOTORS! ON THE FREEWAY! "
770 T1$=" HAVE A... CITY CLUB BEER! CITY CLUB TIME... "
780 T2$=" TUNE TO THE BEAUTIFUL MUSIC STATION. KRAP FM 106 "
790 T3$=" WE HAVE YOU COVERED! METRO LIFE INSURANCE CO. "
810 T5$=" CITY LIGHTS - OUTDOOR ADVERTISING. THIS SPACE FOR RENT. "
820 T9$=" TRY LORD BILGE LONDON DRY GIN! AND TONIC... THE PERFECT MATCH! "
830 U1$=" WHEN PURCHASING FINE DIAMONDS; CONSIDER... RUBENSTERN JEWELERS - QUALITY DIAMONDS AND FINE JEWELERY FOR OVER 50 YEARS. "
840 U2$=" WHEN ENTERTAINING, SERVE... RUSTY SPRINGS SPARKLING WATER! THE BETTER MIXER! ":U3$=" IN NEED OF LEGAL EXPERTISE? - CONTACT THE OFFICES OF DEWEY, CHEETEM & HOWE - FOR A FULL RANGE OF ATTORNEY SERVICES. "
850 U4$=" PROMISE HER ANYTHING, BUT GIVE HER BUC SCENT COLOGNE BY POUR DE LA STENC, PARIS FRANCE. AVAILABLE NOW AT GOTTWEALTH'S ON THE MALL. "
860 U5$=" ALL THE NEWS... ALL THE TIME... READ THE DAILY BLURT... THE CITY'S LEADING NEWSPAPER. ":Q5=1
1240 FOR X=9 TO 53 STEP 8:Y=148:PSET(X,Y),2:DRAW "R4":NEXT:FOR X=9 TO 34 STEP 4:Y=148:PSET(X,Y),2:DRAW "D3":NEXT:FOR X=37 TO 53 STEP 4:Y=148:PSET(X,Y),2:DRAW "D5":NEXT:FOR X=34 TO 37:Y=153:PSET(X,Y),2:NEXT
1250 FOR X=41 TO 53 STEP 8:Y=153:PSET(X,Y),2:DRAW "R4":NEXT:FOR X=41 TO 53 STEP 8:Y=158:PSET(X,Y),2:DRAW "R4":NEXT:FOR X=42 TO 44:FOR Y=163 TO 193 STEP 5:PSET(X,Y),2:NEXT Y,X:FOR X=49 TO 53:FOR Y= 163 TO 193 STEP 5:PSET(X,Y),2:NEXT Y,X
1260 FOR X=45 TO 53 STEP 4:FOR Y=158 TO 188 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT Y,X:PSET(10,174),1:DRAW "L1 G1 D2 F1 R1":PSET(13,177),1:DRAW "U3 E1 R1 F1 D3":PSET(15,176),1:PSET(14,176),1:PSET(19,177),1:DRAW "U2 R1 L1 U2 R1":PSET(23,178),1
1270 DRAW "R1 L1 U2 R1 L1 U2 R1":PSET(6,181),2:DRAW "R20 D10 L20 U10":PAINT (7,182),3,2
1280 FOR X=22 TO 92 STEP 3:PSET(110,X),2:DRAW "R20":NEXT :FOR X=22 TO 92 STEP 3:PSET(140,X),2:DRAW "R20":NEXT :FOR X=110 TO 130 STEP 5:FOR Y=22 TO 90 STEP 6:D=Y+3:LINE (X,Y)-(X,D),2:NEXT Y,X
1290 FOR X=140 TO 160 STEP 5:FOR Y=22 TO 90 STEP 6:D=Y+3:LINE (X,Y)-(X,D),2:NEXT Y,X:PSET(10,88),2:FOR X=10 TO 50 STEP 8:FOR Y=88 TO 125 STEP 5:PSET(X,Y),2:DRAW "R4":NEXT Y,X:FOR X=10 TO 54 STEP 4:FOR Y=88 TO 125 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT Y,X
1400 FOR X=69 TO 83 STEP 2:FOR Y=80 TO 103 STEP 6:LINE(X,Y)-(X,Y+3),2:NEXT Y,X:FOR Y=80 TO 103 STEP 3:FOR X=69 TO 83 STEP 4:LINE(X,Y)-(X+2,Y),2:NEXT X,Y:FOR X=69 TO 92 STEP 2:FOR Y=104 TO 119 STEP 6:LINE(X,Y)-(X,Y+3),2:NEXT Y,X
1410 FOR Y=104 TO 119 STEP 3:FOR X=69 TO 92 STEP 4:LINE(X,Y)-(X+2,Y),2:NEXT X,Y:FOR Y=122 TO 137 STEP 6:FOR X=69 TO 88 STEP 2:LINE(X,Y)-(X,Y+3),2:NEXT X,Y:FOR Y=122 TO 137 STEP 3:FOR X=69 TO 88 STEP 4:LINE(X,Y)-(X+2,Y),2:NEXT X,Y
1420 FOR Y=128 TO 196 STEP 6:FOR X=69 TO 75 STEP 2:LINE(X,Y)-(X,Y+3),2:NEXT X,Y:FOR Y=128 TO 197 STEP 3:FOR X=69 TO 75 STEP 4:LINE(X,Y)-(X+2,Y),2:NEXT X,Y
1430 FOR Y=42 TO 63 STEP 3:FOR X=24 TO 54:PSET(X,Y),2:NEXT X,Y:FOR X=24 TO 54 STEP 3:FOR Y=43 TO 63:PSET(X,Y),2:NEXT Y,X:FOR Y=42 TO 63 STEP 3:X=54:PSET(X,Y),2:DRAW "F8":NEXT:FOR Y=72 TO 77 STEP 3:X=60:PSET(X,Y),2:DRAW "F2":NEXT:PSET(60,78),2:DRAW "F2"
1450 FOR X=83 TO 138 STEP 5:FOR Y=148 TO 156:PSET(X,Y),2:NEXT Y,X:FOR Y=148 TO 156 STEP 8:FOR X=83 TO 138 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT X,Y
1460 FOR X=83 TO 138 STEP 5:FOR Y=163 TO 171:PSET(X,Y),2:NEXT Y,X:FOR Y=163 TO 171 STEP 8:FOR X=83 TO 138 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT X,Y:FOR X=83 TO 108 STEP 5:FOR Y=178 TO 186:PSET(X,Y),2:NEXT Y,X
1470 FOR Y=178 TO 186 STEP 8:FOR X=83 TO 107 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT X,Y:FOR X=83 TO 133 STEP 10:Y=167:PSET(X,Y),2:DRAW "R5":NEXT:FOR X=83 TO 133 STEP 10:Y=152:PSET(X,Y),2:DRAW "R5":NEXT:FOR X=83 TO 103 STEP 10:Y=182:PSET(X,Y),2:DRAW "R5":NEXT
1480 PSET(223,198),2:DRAW "U22 R12 D22":PSET(226,194),2:DRAW "U15 R6 D15 L6":LINE(224,188)-(224,186),2:PSET(180,188),2:DRAW "U16 R36 D16 L36":PSET(187,181),1:DRAW "U5 R1 F1 D1 G1 L1":PSET(191,181),1:DRAW "U2 R2 L2 U2 E1 R1 F1 D4":PSET(196,176),1
1490 DRAW "D4 F1 E1 U4 D4 F1 E1 U4":PSET(202,181),1:DRAW "U5 D1 E1 R1 F1 D4":PSET(207,180),1:DRAW "F1 R1 E1 H3 E1 R1 F1":PSET(184,175),1:DRAW "E1 R26 F1 D8 G1 L26 H1 U8"
1560 PSET(135,133),2:DRAW "U1 U1 U1 R1 R1 D1 L1 L1 R1 F1 F1":PSET(140,133),2:DRAW "U1 U1 E1 R1 F1 D1 D1 U1 L1 L1":PSET(147,130),2:DRAW "L1 G1 D1 F1 R1 E1 L1 R1":PSET(150,131),2:DRAW "R1 R1 R1 H1 L1 G1 D1 F1 R1"
1570 X=190:FOR Y=65 TO 75 STEP 5:PSET(X,Y),2:DRAW "R55":NEXT:PSET(190,80),2:DRAW "R53":FOR Y=85 TO 90 STEP 5:PSET(X,Y),2:DRAW "R50":NEXT:PSET(227,95),2:DRAW "R13":X=233:FOR Y=100 TO 150 STEP 5:PSET(X,Y),2:DRAW "R7":NEXT
1580 FOR X=198 TO 238 STEP 10:Y=65:PSET(X,Y),2:DRAW "D28":NEXT:PSET(228,93),2:DRAW "D3":PSET(238,93),2:DRAW "D58":PSET(246,65),2:DRAW "F6":PSET(246,70),2:DRAW "F4":PSET(246,75),2:DRAW "F2":PSET(248,68),2:DRAW "D10"
1590 FOR X=249 TO 294 STEP 8:FOR Y=90 TO 135 STEP 5:PSET(X,Y),2:DRAW "R3":NEXT Y,X:FOR X=249 TO 294 STEP 4:FOR Y=90 TO 135 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT Y,X
1600 X=62:FOR Y=90 TO 125 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT:X=64:FOR Y=92 TO 127 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT:X=66:FOR Y=94 TO 129 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT
1610 X=63:FOR Y=140 TO 195 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT:X=65:FOR Y=142 TO 197 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT:X=67:FOR Y=144 TO 199 STEP 10:PSET(X,Y),2:DRAW "D5":NEXT
1620 X=185:FOR Y=130 TO 150 STEP 8:PSET(X,Y),2:DRAW "D4":NEXT:X=187:FOR Y=132 TO 150 STEP 8:PSET(X,Y),2:DRAW "D4":NEXT:X=189:FOR Y=134 TO 145 STEP 8:PSET(X,Y),2:DRAW "D4":NEXT:PSET(189,149),2:DRAW "D2"
1630 Y=110:FOR X=119 TO 215 STEP 5:PSET(X,Y),2:DRAW "D6":NEXT:FOR Y=110 TO 116 STEP 6:FOR X=119 TO 215 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT X,Y:PSET(189,122),2:DRAW "D3 U3 R5 D6 L3":PSET(193,134),2:DRAW "R1 D6 L1"
1640 FOR Y=122 TO 134 STEP 12:FOR X=199 TO 215 STEP 5:PSET(X,Y),2:DRAW "D6":NEXT X,Y:FOR Y=122 TO 140 STEP 6:FOR X=199 TO 215 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT X,Y
1650 Y=146:FOR X=194 TO 215 STEP 5:PSET(X,Y),2:DRAW "D5":NEXT:Y=146:FOR X=199 TO 215 STEP 10:PSET(X,Y),2:DRAW "R5":NEXT:FOR X=193 TO 194:PSET(X,146),2:NEXT
1660 GOTO 5
1670 FOR X=1 TO 9000:NEXT X:RETURN
1680 IF VAL (LEFT$ (TIME$,2)) =13 THEN T$= "01" + MID$ (TIME$,3,6):TIME$ = T$
1690 IF VAL (LEFT$ (TIME$,2))=0 THEN T$= "12" + MID$ (TIME$,3,6):TIME$ = T$
1700 MN= VAL (MID$ (TIME$,4,2)):HR= VAL (LEFT$ (TIME$,2))
1710 IF MN=>45 THEN HR=HR+1
1720 IF VAL (LEFT$ (TIME$,2))>13 THEN CLS:INPUT "ONE MOMENT! PLEASE INPUT TIME HH:MM:SS";T$:TIME$=T$:RUN
1730 IF MN=5 THEN LINE(271,55)-(271,49),0:MH=274:MV=50:GOTO 1850
1740 IF MN=10 THEN LINE(271,55)-(274,50),0:MH=277:MV=52:GOTO 1850
1750 IF MN=15 THEN LINE(271,55)-(277,52),0:MH=278:MV=55:GOTO 1850
1760 IF MN=20 THEN LINE(271,55)-(278,55),0:MH=277:MV=58:GOTO 1850
1770 IF MN=25 THEN LINE(271,55)-(277,58),0:MH=274:MV=60:GOTO 1850
1780 IF MN=30 THEN LINE(271,55)-(274,60),0:MH=271:MV=61:GOTO 1850
1790 IF MN=35 THEN LINE(271,55)-(271,61),0:MH=268:MV=60:GOTO 1850
1800 IF MN=40 THEN LINE(271,55)-(268,60),0:MH=265:MV=58:GOTO 1850
1810 IF MN=45 THEN LINE(271,55)-(265,58),0:MH=264:MV=55:GOTO 1850
1820 IF MN=50 THEN LINE(271,55)-(264,55),0:MH=266:MV=52:GOTO 1850
1830 IF MN=55 THEN LINE(271,55)-(266,52),0:MH=268:MV=50:GOTO 1850
1840 IF MN=0 THEN LINE(271,55)-(268,50),0:MH=271:MV=49
1850 IF HR=1 THEN LINE(271,55)-(271,49),0:HH=274:HV=51:GOTO 1960
1860 IF HR=2 THEN LINE(271,55)-(274,51),0:HH=276:HV=53:GOTO 1960
1870 IF HR=3 THEN LINE(271,55)-(277,52),0:HH=276:HV=55:GOTO 1960
1880 IF HR=4 THEN LINE(271,55)-(278,55),0:HH=276:HV=58:GOTO 1960
1885 IF HR=5 THEN LINE(271,55)-(276,58),0:HH=274:HV=59:GOTO 1960
1890 IF HR=6 THEN LINE(271,55)-(274,59),0:HH=271:HV=60:GOTO 1960
1900 IF HR=7 THEN LINE(271,55)-(271,61),0:HH=268:HV=59:GOTO 1960
1910 IF HR=8 THEN LINE(271,55)-(268,60),0:HH=267:HV=58:GOTO 1960_
1920 IF HR=9 THEN LINE(271,55)-(266,58),0:HH=266:HV=55:GOTO 1960
1930 IF HR=10 THEN LINE(271,55)-(264,55),0:HH=266:HV=53:GOTO 1960
1940 IF HR=11 THEN LINE(271,55)-(266,52),0:HH=268:HV=51:GOTO 1960
1950 IF HR=12 THEN LINE(271,55)-(268,50),0:HH=271:HV=50:GOTO 1960
1960 IF MH=0 OR MV=0 OR HH=0 OR HV=0 THEN RETURN ELSE GOTO 1970
1970 LINE(271,55)-(MH,MV),1
1980 LINE(271,55)-(HH,HV),1
1990 RETURN
2000 IF Q5=0 THEN GOTO 740 ELSE T8$=" FOR AUTHENTIC VIETNAMESE FOOD... TRY CHU LAI CHARLIE'S RESTAURANT AND LOUNGE. "
2005 T7$=" DOWNLOAD ERRORS?? AT 300 BAUD?? OUTRAGEOUS! CHOOSE AP&P WE GO THE DISTANCE. "
2010 T1$=" TRY A BELCHE'S LIGHT BEER... TIME FOR A BELCHE! "
2020 T3$=" B&J BLENDED BOURBON... NOT JUST FOR BREAKFAST ANYMORE. "
2025 T2$=" HEY MAN... GET WIRED! TUNE YOUR HEAD TO KROK FM 93 "
2030 T4$=" ENJOY A REAL MAN'S SMOKE.... -ROLLED SHORTS- SMALL CIGARS. "
2035 T5$=" WHY PAY MORE? GET A NEW -CANNON CORD- WIRELESS PHONE. "
2040 T9$=" TRY NEW -PIT STOP- ANTI-STAIN ROLL ON. NO SWEAT! "
2045 U1$=" IF YOUR THRONE IS LESS THAN REGAL, LOOK OVER THE NEW SELECTION AT FILROY'S PLUMBING SUPPLY. NOW FEATURING NEW JET-FLUSH. "
2050 U2$=" FOR SMORGASBORD DINING AT IT'S BEST... EAT AT HOBO SVEN'S NOW SERVING LUTEFISK! ":U3$=" C'MON DOWN TO SMILIN EARL'S --< USED CAR CIRCUS >-- BEST DEALS! LOWEST PRICES! WE GOTTA MOVE EM' NOW! SEE YA THERE. "
2055 U4$=" -- WOW -- 3RD ANNUAL COMPUTER EXPO! OCT. 3-5 MUNICIPAL AUDITORIUM. HARDWARE! SOFTWARE! FIRMWARE! UNDERWARE! WE GOT IT ALL. BE THERE! "
2060 U5$=" WATCH THE KPOW TV NEWS TEAM... WITH ANCHORWOMAN - MARCIA SLUR - AND THE SNOOPERCAM CREW. ":Q5=0:RETURN
3000 CLS:PRINT:PRINT "SKYLINE is an amusing graphics program which may be loosely defined as a form of computer art.":PRINT
3001 PRINT "The program features a working analog clock, a scrolling billboard, and over 200 independently operating lights signsand windows.":PRINT
3002 PRINT "The analog clock may take up to 5 min. to sync with the rest of the program.":PRINT
3003 PRINT "This program may be freely copied and distributed by permission of author so long as copies are unmodified and in their original form.":PRINT
3004 PRINT "PLEASE TYPE AND ENTER THE CURRENT TIME: ":PRINT "HH:MM:SS":PRINT:INPUT;T$:TIME$=T$